define add proc (a,b)
	return := a + b
end;

define curry proc (f, b)
   return := proc (a) return := f(a,b) end
end;

define addone proc (b)
	return := curry(add,1)
end;

z := addone(4)
